home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / rexx / qf / part01 / qfquit.txed < prev    next >
Text File  |  1990-05-20  |  520b  |  33 lines
  1. /*
  2.  * qfquit.txed
  3.  */
  4.  
  5. arg save err .
  6.  
  7. call close stdin
  8.  
  9. if ~datatype(save,'N') then save = 1
  10. if ~datatype(err,'N') then err = 5
  11.  
  12. quit = 0
  13. if save then do
  14.     'write'
  15.     quit = 1
  16. end
  17. else do
  18.     call Open(stdin,'con:80/120/400/40')
  19.     call writeln(stdin,'This file won''t be saved!')
  20.     options prompt 'Are you sure you want to quit? '
  21.     pull answer
  22.     call close stdin
  23.     if( abbrev('YES',translate(answer),1) ) then
  24.         quit = 1
  25.     else
  26.         quit = 0
  27. end
  28.  
  29. if quit then
  30.     address REXXQFPORT 'QUIT' err
  31. else
  32.     'msg qfquit: Whew! That was close!'
  33.